home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb33705.lsp < prev    next >
Text File  |  1998-03-15  |  10KB  |  290 lines
  1. ;=============337.05 VIELKEILWELLE
  2.  
  3. (EAITDBL "0033705")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:33705S1 (/ P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18
  8.                     E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 Li Wi KWi KWix DWx W90 Wix BName)
  9.    (EAITDBL "0033705")
  10.    (princ (strcat "\n\n" EAITbez1))
  11.    (EAITvari)
  12.    (EAITvars)
  13.    (EAITbpt nil nil nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (initget (+ 1 2 4))
  17.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  18.    (setq Li (getdist))
  19.    (setq Li (EAITck Li))
  20.    (setq Li (atof (rtos (abs Li) 2 1)))                 ;Laenge der Vielkeilwelles
  21.    (initget 1)
  22.    (EAITmsg "mb_mld10" "\n" "004" nil)            ;Winkel
  23.    (setq Wi (getangle P1))
  24.    (setvar "OSMODE" 0)
  25.    (initget 1)
  26.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  27.    (setq KWi (getangle P1))
  28.  
  29.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  30.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  31.    (cond
  32.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  33.       ( (and (>= DWx 90) (< DWx 180))
  34.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  35.         )
  36.       )
  37.       ( (and (>= DWx 180) (< DWx 270))
  38.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  39.         )
  40.       )
  41.       ( T (setq W90 -90.0) )
  42.    )
  43.  
  44.    (setq P2 (polar P1 Wi Li)
  45.          P3 (polar P1 (+ Wi (EAITgib W90)) 1.5)
  46.         P4 (polar P2 (+ Wi (EAITgib W90)) 1.5)
  47.         P5 (polar P1 (+ Wi (EAITgib W90)) 3.8)
  48.         P6 (polar P2 (+ Wi (EAITgib W90)) 3.8)
  49.         P7 (polar P1 (+ Wi (EAITgib W90)) 5.2)
  50.         P8 (polar P2 (+ Wi (EAITgib W90)) 5.2)
  51.         P9 (polar P1 (+ Wi (EAITgib W90)) 6.7)
  52.         P10(polar P2 (+ Wi (EAITgib W90)) 6.7)
  53.         P11(polar P1 (+ Wi (EAITgib W90)) -1.5)
  54.         P12(polar P2 (+ Wi (EAITgib W90)) -1.5)
  55.         P13(polar P1 (+ Wi (EAITgib W90)) -3.8)
  56.         P14(polar P2 (+ Wi (EAITgib W90)) -3.8)
  57.         P15(polar P1 (+ Wi (EAITgib W90)) -5.2)
  58.         P16(polar P2 (+ Wi (EAITgib W90)) -5.2)
  59.         P17(polar P1 (+ Wi (EAITgib W90)) -6.7)
  60.         P18(polar P2 (+ Wi (EAITgib W90)) -6.7)
  61.    )
  62.    
  63.  
  64.       
  65.    (command EAITlay EAITlse "EAITstpg" "")
  66.    (command EAITlin (polar P1 (+ Wi Pi) 5)(polar P2 Wi 5) "")
  67.    (setq E1 (entlast))
  68.    (command EAITlay EAITlse "EAIT50" ""   
  69.             EAITlin P3 P4 "" EAITlin P5 P6 "" EAITlin P7 P8 "" EAITlin P9 P10 ""
  70.             EAITlin P11 P12 "" EAITlin P13 P14 "" EAITlin P15 P16 "" EAITlin P17 P18 ""
  71.           EAITlin P9 P17 "" EAITlin P10 P18 ""
  72.    )
  73.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
  74.          E5 (entnext E4) E6 (entnext E5) E7 (entnext E6)
  75.         E8 (entnext E7) E9 (entnext E8) E10 (entnext E9)
  76.         E11 (entnext E10)
  77.    )
  78.  
  79.  
  80.    (setq BName (EAITbnr))
  81.    (command EAITblo BName P1 E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 "")
  82.    (command EAITege BName P1 "" "" "")
  83.  
  84.    (setq Li (rtos (abs Li) 2 1))
  85.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2)  "" "" (+ (EAITbig Wi) W90)
  86.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  87.    )
  88.  
  89.    (EAITvarz2)
  90.    (princ)
  91. );defun S1
  92.  
  93.  
  94. (defun C:33705SV (/ P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18
  95.                     E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 Li Wi KWi KWix DWx W90 Wix BName)
  96.    (EAITDBL "0033705")
  97.    (princ (strcat "\n\n" EAITbez1))
  98.    (EAITvari)
  99.    (EAITvars)
  100.  
  101.    (EAITbpt nil nil nil)
  102.    (setq P1 (getpoint))
  103.    (if (= P1 nil)(setq P1 (EAITrpt)))
  104.    (initget (+ 1 2 4))
  105.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  106.    (setq Li (getdist))
  107.    (setq Li (EAITck Li))
  108.    (setq Li (atof (rtos (abs Li) 2 1)))                 ;Laenge der Vielkeilwelles
  109.    (setq Wi (/ Pi 2))
  110.    (setvar "OSMODE" 0)
  111.    (initget 1)
  112.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  113.    (setq KWi (getangle P1))
  114.  
  115.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  116.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  117.    (cond
  118.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  119.       ( (and (>= DWx 90) (< DWx 180))
  120.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  121.         )
  122.       )
  123.       ( (and (>= DWx 180) (< DWx 270))
  124.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  125.         )
  126.       )
  127.       ( T (setq W90 -90.0) )
  128.    )
  129.    (setq P2 (polar P1 Wi Li)
  130.          P3 (polar P1 (+ Wi (EAITgib W90)) 1.5)
  131.         P4 (polar P2 (+ Wi (EAITgib W90)) 1.5)
  132.         P5 (polar P1 (+ Wi (EAITgib W90)) 3.8)
  133.         P6 (polar P2 (+ Wi (EAITgib W90)) 3.8)
  134.         P7 (polar P1 (+ Wi (EAITgib W90)) 5.2)
  135.         P8 (polar P2 (+ Wi (EAITgib W90)) 5.2)
  136.         P9 (polar P1 (+ Wi (EAITgib W90)) 6.7)
  137.         P10(polar P2 (+ Wi (EAITgib W90)) 6.7)
  138.         P11(polar P1 (+ Wi (EAITgib W90)) -1.5)
  139.         P12(polar P2 (+ Wi (EAITgib W90)) -1.5)
  140.         P13(polar P1 (+ Wi (EAITgib W90)) -3.8)
  141.         P14(polar P2 (+ Wi (EAITgib W90)) -3.8)
  142.         P15(polar P1 (+ Wi (EAITgib W90)) -5.2)
  143.         P16(polar P2 (+ Wi (EAITgib W90)) -5.2)
  144.         P17(polar P1 (+ Wi (EAITgib W90)) -6.7)
  145.         P18(polar P2 (+ Wi (EAITgib W90)) -6.7)
  146.    )
  147.    
  148.  
  149.       
  150.    (command EAITlay EAITlse "EAITstpg" "")
  151.    (command EAITlin (polar P1 (+ Wi Pi) 5)(polar P2 Wi 5) "")
  152.    (setq E1 (entlast))
  153.    (command EAITlay EAITlse "EAIT50" ""   
  154.             EAITlin P3 P4 "" EAITlin P5 P6 "" EAITlin P7 P8 "" EAITlin P9 P10 ""
  155.             EAITlin P11 P12 "" EAITlin P13 P14 "" EAITlin P15 P16 "" EAITlin P17 P18 ""
  156.           EAITlin P9 P17 "" EAITlin P10 P18 ""
  157.    )
  158.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
  159.          E5 (entnext E4) E6 (entnext E5) E7 (entnext E6)
  160.         E8 (entnext E7) E9 (entnext E8) E10 (entnext E9)
  161.         E11 (entnext E10)
  162.    )
  163.  
  164.  
  165.    (setq BName (EAITbnr))
  166.    (command EAITblo BName P1 E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 "")
  167.    (command EAITege BName P1 "" "" "")
  168.  
  169.    (setq Li (rtos (abs Li) 2 1))
  170.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2)  "" "" (+ (EAITbig Wi) W90)
  171.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  172.    )
  173.  
  174.  
  175.    (EAITvarz2)
  176.    (princ)
  177. );defun SV
  178.  
  179. (defun C:33705SH (/ P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18
  180.                     E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 Li Wi KWi KWix DWx W90 Wix BName)
  181.    (EAITDBL "0033705")
  182.    (princ (strcat "\n\n" EAITbez1))
  183.    (EAITvari)
  184.    (EAITvars)
  185.  
  186.    (EAITbpt nil nil nil)
  187.    (setq P1 (getpoint))
  188.    (if (= P1 nil)(setq P1 (EAITrpt)))
  189.    (initget (+ 1 2 4))
  190.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  191.    (setq Li (getdist))
  192.    (setq Li (EAITck Li))
  193.    (setq Li (atof (rtos (abs Li) 2 1)))                 ;Laenge der Vielkeilwelles
  194.    (setq Wi Pi)
  195.    (setvar "OSMODE" 0)
  196.    (initget 1)
  197.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  198.    (setq KWi (getangle P1))
  199.  
  200.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  201.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  202.    (cond
  203.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  204.       ( (and (>= DWx 90) (< DWx 180))
  205.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  206.         )
  207.       )
  208.       ( (and (>= DWx 180) (< DWx 270))
  209.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  210.         )
  211.       )
  212.       ( T (setq W90 -90.0) )
  213.    )
  214.    (setq P2 (polar P1 Wi Li)
  215.          P3 (polar P1 (+ Wi (EAITgib W90)) 1.5)
  216.         P4 (polar P2 (+ Wi (EAITgib W90)) 1.5)
  217.         P5 (polar P1 (+ Wi (EAITgib W90)) 3.8)
  218.         P6 (polar P2 (+ Wi (EAITgib W90)) 3.8)
  219.         P7 (polar P1 (+ Wi (EAITgib W90)) 5.2)
  220.         P8 (polar P2 (+ Wi (EAITgib W90)) 5.2)
  221.         P9 (polar P1 (+ Wi (EAITgib W90)) 6.7)
  222.         P10(polar P2 (+ Wi (EAITgib W90)) 6.7)
  223.         P11(polar P1 (+ Wi (EAITgib W90)) -1.5)
  224.         P12(polar P2 (+ Wi (EAITgib W90)) -1.5)
  225.         P13(polar P1 (+ Wi (EAITgib W90)) -3.8)
  226.         P14(polar P2 (+ Wi (EAITgib W90)) -3.8)
  227.         P15(polar P1 (+ Wi (EAITgib W90)) -5.2)
  228.         P16(polar P2 (+ Wi (EAITgib W90)) -5.2)
  229.         P17(polar P1 (+ Wi (EAITgib W90)) -6.7)
  230.         P18(polar P2 (+ Wi (EAITgib W90)) -6.7)
  231.    )
  232.    
  233.  
  234.       
  235.    (command EAITlay EAITlse "EAITstpg" "")
  236.    (command EAITlin (polar P1 (+ Wi Pi) 5)(polar P2 Wi 5) "")
  237.    (setq E1 (entlast))
  238.    (command EAITlay EAITlse "EAIT50" ""   
  239.             EAITlin P3 P4 "" EAITlin P5 P6 "" EAITlin P7 P8 "" EAITlin P9 P10 ""
  240.             EAITlin P11 P12 "" EAITlin P13 P14 "" EAITlin P15 P16 "" EAITlin P17 P18 ""
  241.           EAITlin P9 P17 "" EAITlin P10 P18 ""
  242.    )
  243.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
  244.          E5 (entnext E4) E6 (entnext E5) E7 (entnext E6)
  245.         E8 (entnext E7) E9 (entnext E8) E10 (entnext E9)
  246.         E11 (entnext E10)
  247.    )
  248.  
  249.  
  250.    (setq BName (EAITbnr))
  251.    (command EAITblo BName P1 E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 "")
  252.    (command EAITege BName P1 "" "" "")
  253.  
  254.    (setq Li (rtos (abs Li) 2 1))
  255.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2)  "" "" (+ (EAITbig Wi) W90)
  256.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  257.    )
  258.  
  259.  
  260.    (EAITvarz2)
  261.    (princ)
  262. );defun SH
  263.  
  264.  
  265. (defun C:33705Q ( / P1 Wi)
  266.    (EAITDBL "0033705")
  267.    (princ (strcat "\n\n" EAITbez1))
  268.      (EAITvari)
  269.      (EAITvars)
  270.      (setvar "ORTHOMODE" 0)
  271.      (EAITbpt nil nil nil)
  272.      (setq P1 (getpoint))
  273.      (if (= P1 nil)(setq P1 (EAITrpt)))
  274.      (setvar "OSMODE" 0)
  275.      (setvar "ORTHOMODE" 1)
  276.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  277.      (command EAITege (strcat EAITpfn "33705Q") P1 "" "" EAITofkei pause)
  278.  
  279.      (setq Wi (EAITbw))
  280.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 327)) 4) "" "" ""
  281.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  282.      )
  283.  
  284.      (EAITvarz2)
  285.      (princ)
  286.  
  287. );defun Q
  288.  
  289. (princ)
  290.